unit UnidadeDM;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  ZDataset, ZSqlUpdate, MainDM, QueryConditions, db;

type

  { TUnidadeData }

  TUnidadeData = class(TMainDataModule)
    UnidadeDatasource: TDatasource;
    UnidadeZQuery: TZQuery;
    UnidadeZQuerydesc_unidade: TStringField;
    UnidadeZQuerysigla_unidade: TStringField;
    UnidadeZUpdate: TZUpdateSQL;
    procedure DataModuleCreate(Sender: TObject);
    /// Abre o DataSet
    procedure OpenDataSet(); override;
    /// Fecha o DataSet
    procedure CloseDataSet(); override;
    /// Realiza busca
    /// @param(Condicoes são as condições para a busca)
    /// @param(Tabela é a tabela no banco de dados)
    procedure Search(Condicoes: TQueryConditions; Tabela: string); override;
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  UnidadeData: TUnidadeData;

implementation

uses ConnectionDM;

{ TUnidadeData }

procedure TUnidadeData.DataModuleCreate(Sender: TObject);
begin
  MainDataSet := UnidadeZQuery;
  UnidadeZQuery.Open;
end;

procedure TUnidadeData.OpenDataSet;
begin
 //ConnectionData.EmptyQuery(UnidadeZQuery, 'unidade');
end;

procedure TUnidadeData.CloseDataSet;
begin
  //UnidadeZQuery.Close();
end;

procedure TUnidadeData.Search(Condicoes: TQueryConditions; Tabela: string);
begin
   ConnectionData.OpenQueryConditions(UnidadeZQuery, Tabela, Condicoes);
end;

initialization
  {$I unidadedm.lrs}

end.

